home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / MDP-80 Folder / Programs / printDec.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-12-17  |  789 b   |  53 lines  |  [TEXT/ALFA]
  1. ;
  2. ;    printDec
  3. ;
  4. ;    output A as a decimal number.   RTK, 12-17-93
  5. ;
  6. ;
  7.  
  8. #org 2F00            ; in high memory
  9.  
  10. #include std.equ
  11.  
  12. #equ first    07        ; first digit (hundreds)
  13. #equ second    08        ; second digit (tens)
  14. #equ third    09        ; last digit (ones)
  15. #equ temp   0A        ; temporary
  16. #equ num    0B        ; number to subtract
  17.  
  18. ;  printDec - prints A as a decimal number.
  19.  
  20. .printDec    sta temp
  21.             ldx #64
  22.             stx num
  23.             jsr subtract        ; number of hundreds
  24.             stx first
  25.             ldx #0A
  26.             stx num                ; number of tens
  27.             jsr subtract
  28.             stx second
  29.             sta third
  30.             lda first
  31.             jsr print
  32.             lda second
  33.             jsr print
  34.             lda third
  35.             jsr print
  36.             rts
  37. .subtract    ldx #00
  38.             lda temp
  39. .again        sec
  40.             sbc num
  41.             inx
  42.             bpl again
  43.             dex
  44.             clc
  45.             adc num
  46.             sta temp
  47.             rts
  48. .print        cmp #00
  49.             beq back
  50.             clc
  51.             adc #30
  52.             jsr _cout
  53. .back        rts